home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / aijournl / 1989_05 / aiglob.pas < prev    next >
Pascal/Delphi Source File  |  1988-05-03  |  2KB  |  85 lines
  1. {AUTHOR : Jonathan Kraidin
  2.  PURPOSE: Global variables used by all routines.  The main purpose
  3.           of these variables is for setting thresholds which can
  4.           be modified by the Learn routines.}
  5.  
  6. Unit AIGLOB;
  7.  
  8. Interface
  9.  
  10. Type ImagType2 = array[1..3036] of word;
  11.  
  12.      offlimits = record                 {used to mark area of cell}
  13.                   x : word;
  14.                   y : word;
  15.                  end;
  16.  
  17.      limitarray = array[1..30] of offlimits;
  18.  
  19.     Type
  20.      Celltype = record
  21.        Area       : word;
  22.        Perimeter  : word;
  23.        _area,
  24.        _perim     : word;
  25.        xcoord     : word;
  26.        ycoord     : word;
  27.        good       : boolean;
  28.        gray       : byte;
  29.        mval       : double;
  30.        black      : double;
  31.        foregnd    : double;
  32.        _stdev     : double;
  33.        dadb       : word;
  34.        score      : word;
  35.        stdx,
  36.        forx       : double;
  37.        kux,
  38.        cytost,
  39.        rx1,rx2    : double;
  40.  
  41.      end;
  42.  
  43.      Cells = array[1..50] of celltype;
  44.  
  45. Const
  46.     GraphOn = true;
  47.     SpecDis = true;
  48.     filteron = false;
  49.     EdgeThreshold = 100;
  50.     PlotShift = 0;
  51.     PlotScale = 3;
  52.     CutOffLow    = 00;
  53.     CutOffHigh   = 254;
  54. Var
  55.     CellCount               : word;
  56.     Xdig,Ydig,Butdig,Errdig : integer;
  57.     CenterLighter           : boolean;
  58.     LearnMode               : boolean;
  59.     AiCells                 : Cells;
  60.     GrayStrike,
  61.     CriticalValue,
  62.     CriticalHigh,
  63.     Lowdiv                  : byte;
  64.  
  65.     MinArea,MaxArea         : word;
  66.     Firstx,ScoreX           : word;
  67.     MinBlack,MaxBlack       : double;
  68.     _stqset,_stqxset        : double;
  69.     forset,forxset          : double;
  70.     MvalX                   : double;
  71.     MvalHigh,MvalLow        : double;
  72.     dadbX                   : word;
  73.     DaDbq                   : double;
  74.     ShapeHigh,
  75.     shapeLow                : double;
  76.     kuLow,Kuhigh,
  77.     cytoset,
  78.     rx1low,rx1high,
  79.     rx2low,rx2high          : double;
  80.  
  81.     Calibfactor2            : double;
  82.  
  83. Implementation
  84.  
  85. end.